Accidentes de transito en CR entre 2016-2022

<<<<<<< HEAD

Attaching package: ‘dplyr’

The following objects are masked from ‘package:stats’:

    filter, lag

The following objects are masked from ‘package:base’:

    intersect, setdiff, setequal, union

Warning: package ‘ggplot2’ was built under R version 4.3.3Warning: package ‘plotly’ was built under R version 4.3.3
Attaching package: ‘plotly’

The following object is masked from ‘package:ggplot2’:

    last_plot

The following object is masked from ‘package:stats’:

    filter

The following object is masked from ‘package:graphics’:

    layout

Warning: package ‘treemapify’ was built under R version 4.3.3

======= >>>>>>> c6d893886411386df8f9bc2cb666cee51bc7a06f

axis = list(showline=FALSE,
            zeroline=FALSE,
            gridcolor='#ffff',
            ticklen=1)

<<<<<<< HEAD
matrizD <- datos_multidimensionales %>%
  plot_ly() 
matrizD <- matrizD %>%
  add_trace(
    type = 'splom',
    dimensions = list(
      list(label='Día',values=~Día),
      list(label='Tránsito',values=~Tipo.de.circulación),
      list(label='Hora',values=~Hora.recodificada),
      list(label='Vía',values=~Tipo.de.calzada),
      list(label='Clima',values=~Estado.del.tiempo)
    )
  )
matrizD <- matrizD %>%
  layout(
    title= 'Accidentes del 2016-2022 evaluando distintos factores',
    hovermode='closest',
    dragmode= 'select',
    plot_bgcolor='rgba(240,240,240, 0.95)',
    xaxis=list(domain=NULL, showline=F, zeroline=F, gridcolor='#ffff', ticklen=4),
    yaxis=list(domain=NULL, showline=F, zeroline=F, gridcolor='#ffff', ticklen=4),
    xaxis2=axis,
    xaxis3=axis,
    xaxis4=axis,
    yaxis2=axis,
    yaxis3=axis,
    yaxis4=axis
  )

matrizD <- matrizD %>%
  layout(
  xaxis = list(tickvals = NULL, ticktext = NULL),
  xaxis2 = list(tickvals = NULL, ticktext = NULL),
  xaxis3 = list(tickvals = NULL, ticktext = NULL),
  xaxis4 = list(tickvals = NULL, ticktext = NULL),
  xaxis5 = list(tickvals = NULL, ticktext = NULL),
  yaxis = list(tickvals = NULL, ticktext = NULL),
  yaxis2 = list(tickvals = NULL, ticktext = NULL),
  yaxis3 = list(tickvals = NULL, ticktext = NULL),
  yaxis4 = list(tickvals = NULL, ticktext = NULL),
  yaxis5 = list(tickvals = NULL, ticktext = NULL)
)
matrizD

NA
NA

======= >>>>>>> c6d893886411386df8f9bc2cb666cee51bc7a06f